inherited frmTd_TraderPrice_List: TfrmTd_TraderPrice_List
  Left = 423
  Top = 127
  Caption = #24448#26469#21333#20301#20215#26684#36319#36394
  PixelsPerInch = 96
  TextHeight = 12
  inherited Panel1: TPanel
    inherited labFuncName: TcxLabel
      Style.IsFontAssigned = True
    end
    inherited labFuncDesc: TcxLabel
      Style.IsFontAssigned = True
    end
  end
  inherited pnlMain: TPanel
    inherited MainDataGrid: TcxGrid
      inherited MainDataGridDBTableView: TcxGridDBTableView
        OptionsView.ColumnAutoWidth = True
        object traderid: TcxGridDBColumn
          Caption = #24448#26469#21333#20301
          DataBinding.FieldName = 'tradername'
          HeaderAlignmentHorz = taCenter
          Width = 100
        end
        object moneyname: TcxGridDBColumn
          DataBinding.FieldName = 'moneyname'
          HeaderAlignmentHorz = taCenter
          Width = 60
        end
        object btype: TcxGridDBColumn
          Caption = #21333#25454#31867#22411
          DataBinding.FieldName = 'btype'
          HeaderAlignmentHorz = taCenter
          Width = 80
        end
        object p_Code: TcxGridDBColumn
          Caption = #36135#21697#32534#30721
          DataBinding.FieldName = 'p_Code'
          HeaderAlignmentHorz = taCenter
          Width = 100
        end
        object p_Name: TcxGridDBColumn
          Caption = #36135#21697#21517#31216
          DataBinding.FieldName = 'p_Name'
          HeaderAlignmentHorz = taCenter
          Width = 100
        end
        object p_spec: TcxGridDBColumn
          Caption = #35268#26684
          DataBinding.FieldName = 'p_spec'
          HeaderAlignmentHorz = taCenter
          Width = 100
        end
        object unitname: TcxGridDBColumn
          Caption = #21333#20301
          DataBinding.FieldName = 'unitname'
          HeaderAlignmentHorz = taCenter
          Width = 60
        end
        object price: TcxGridDBColumn
          Caption = #36319#36394#20215#26684
          DataBinding.FieldName = 'price'
          HeaderAlignmentHorz = taCenter
          Width = 80
        end
      end
    end
  end
  inherited pnlBottom: TPanel
    inherited lblGroupSort: TcxLabel
      Style.IsFontAssigned = True
    end
  end
  inherited MainDataSetU: TUniQuery
    SQLInsert.Strings = (
      'Insert into TT_TRADERPRICE(traderid,'
      'productid,'
      'unitid,'
      'btype,'
      'moneyid,'
      'price,'
      'taxprice'
      ')'
      'Values'
      '(:traderid,'
      ':productid,'
      ':unitid,'
      ':btype,'
      ':moneyid,'
      ':price,'
      ':taxprice)')
    SQLDelete.Strings = (
      'Delete from TT_TRADERPRICE where tid=:Old_tid')
    SQLUpdate.Strings = (
      'Update TT_TRADERPRICE set '
      'traderid=:traderid,'
      'productid=:productid,'
      'unitid=:unitid,'
      'btype=:btype,'
      'moneyid=:moneyid,'
      'price=:price,'
      'taxprice=:taxprice'
      ' where tid=:Old_tid')
    SQL.Strings = (
      'select * from v_tt_traderprice')
    object MainDataSetUtraderid: TIntegerField
      FieldName = 'traderid'
    end
    object MainDataSetUproductid: TIntegerField
      FieldName = 'productid'
    end
    object MainDataSetUunitid: TIntegerField
      FieldName = 'unitid'
    end
    object MainDataSetU_productName: TWideStringField
      FieldName = 'p_Name'
    end
    object MainDataSetU_productCode: TStringField
      FieldName = 'p_Code'
    end
    object MainDataSetU_productSpce: TWideStringField
      FieldName = 'p_spec'
    end
    object MainDataSetUunitname: TWideStringField
      FieldName = 'unitname'
      Size = 30
    end
    object MainDataSetUtradername: TWideStringField
      FieldName = 'tradername'
    end
    object MainDataSetUmoneyid: TIntegerField
      FieldName = 'moneyid'
    end
    object MainDataSetUmoneyname: TStringField
      DisplayLabel = #24065#31181
      FieldName = 'moneyname'
      Size = 60
    end
    object MainDataSetUbtype: TIntegerField
      FieldName = 'btype'
    end
    object MainDataSetUprice: TFloatField
      FieldName = 'price'
    end
    object MainDataSetUtaxprice: TFloatField
      FieldName = 'taxprice'
    end
    object MainDataSetUtid: TAutoIncField
      FieldName = 'tid'
      ReadOnly = True
    end
  end
end
